home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / 3BmpySph.ray < prev    next >
Text File  |  1999-07-09  |  835b  |  34 lines
  1. Viewpoint(1000, 1.1, -0.3)
  2. AmbientLight(50, 50, 50)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. BumpySphere( 50, 0, 0, 52,
  6.   0.4,
  7.   0.5, 0.1, 0.1, ' Ambient.
  8.   0.5, 0.1, 0.1, ' Diffuse.
  9.   20, 0.35,      ' Specular.
  10.   0, 0, 0,       ' Reflected.
  11.   3, 1, 1.4,     ' TransN, n1, n2.
  12.   0, 0, 0        ' Tansmission.
  13. )
  14. BumpySphere(50, -60, 0, -52,
  15.   0.4,
  16.   0.1, 0.1, 0.5, ' Ambient.
  17.   0.1, 0.1, 0.5, ' Diffuse.
  18.   20, 0.35,      ' Specular.
  19.   0, 0, 0,       ' Reflected.
  20.   3, 1, 1.4,     ' TransN, n1, n2.
  21.   0, 0, 0        ' Tansmission.
  22. )
  23. BumpySphere(50, 60, 0, -52,
  24.   0.4,
  25.   0.1, 0.5, 0.1, ' Ambient.
  26.   0.1, 0.5, 0.1, ' Diffuse.
  27.   20, 0.35,      ' Specular.
  28.   0, 0, 0,       ' Reflected.
  29.   3, 1, 1.4,     ' TransN, n1, n2.
  30.   0, 0, 0        ' Tansmission.
  31. )
  32.  
  33.  
  34.